home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / cpp_libs / answrbok / 6_10.lha / 6_10 / 6_10cons.c < prev    next >
Text File  |  1993-08-08  |  1KB  |  63 lines
  1. * Copyright (c) 1990 by AT&T Bell Telephone Laboratories, Incorporated. */
  2. * The C++ Answer Book */
  3. * Tony Hansen */
  4. * All rights reserved. */
  5. *
  6.    Constructors and destructor for type LINT.
  7. /
  8. include <lint.h>
  9.  
  10. INT:: LINT()            // LINT x; or new LINT;
  11.  /* nothing to do */ }
  12.  
  13. INT:: LINT(int j)        // LINT x = 3;
  14.  
  15.    if (j < 0)
  16. s[0] = s[1] = ~0;
  17.    else
  18. s[0] = s[1] = 0;
  19.    s[2] = ((unsigned int) j) / LINT_base;
  20.    s[3] = ((unsigned int) j) % LINT_base;
  21.  
  22.  
  23. INT:: LINT(long j)        // LINT x = 3L;
  24.  
  25.    if (j < 0)
  26. s[0] = s[1] = ~0;
  27.    else
  28. s[0] = s[1] = 0;
  29.    s[2] = ((unsigned long) j) / LINT_base;
  30.    s[3] = ((unsigned long) j) % LINT_base;
  31.  
  32.  
  33. INT:: LINT(unsigned int j) // LINT x = (unsigned) 3;
  34.  
  35.    s[0] = s[1] = 0;
  36.    s[2] = j / LINT_base;
  37.    s[3] = j % LINT_base;
  38.  
  39.  
  40. INT:: LINT(unsigned long j)// LINT x = (unsigned) 3L;
  41.  
  42.    s[0] = s[1] = 0;
  43.    s[2] = j / LINT_base;
  44.    s[3] = j % LINT_base;
  45.  
  46.  
  47. INT:: LINT(LINT& j)        // LINT x = LINT
  48.  
  49.    for (int i = 0; i < 4; i++)
  50. s[i] = j.s[i];
  51.  
  52.  
  53. INT:: ~LINT()
  54.  /* nothing to do */ }
  55.                     /* DELETE */
  56. INT:: LINT(unsigned long j, unsigned long k)    /* DELETE */
  57.                         /* DELETE */
  58.    s[0] = j / LINT_base;            /* DELETE */
  59.    s[1] = j % LINT_base;            /* DELETE */
  60.    s[2] = k / LINT_base;            /* DELETE */
  61.    s[3] = k % LINT_base;            /* DELETE */
  62.                         /* DELETE */
  63.